home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Expert
/
Windows Expert.iso
/
program
/
vbpxen.zip
/
CHECKOUT.FRM
(
.txt
)
next >
Wrap
Visual Basic Form
|
1991-10-07
|
4KB
|
89 lines
Checkout
Check Out
Form1
ButtonOK
ButtonCancel
&Cancel
Label1
Customer number:
custnumber
custname
Label2
Tape number:
tapenumber
tapetitle
tapenumber
tapetitle
tapenumber
tapetitle
tapenumber
tapetitle
tapenumber
tapetitle
custnumber_Change
custnumber_LostFocus
GetCustomerRec
DBKEYED
custnumber
custname
custrec
customer,
tapenumber_Change
tapenumber_LostFocus
GetItemRec%
tapenumbero
tapetitleD
itemrece
itemdesc
caption!
custname_Click
lastname
firstname
thename
TheFullName
ButtonCancel_Click
checkout7
ButtonOK_Click
itemnumber
there
tapes_out
UpdateCustomerRecT
iNumTapes
Command1_Click
ButtonExit_Click
DB_OKY
apetitle
screen
MousePointer
POINTER_HOURGLASS
POINTER_DEFAULT
Form_Click
@ Form_Load
custnum
UpdateItemRec
inout_code
itemfee
inout)
MB_ICONEXLAMATION
MB_ICONEXCLAMATION
custnumber_LostFocus
need to trim trailing blanks from the last name
tapenumber_LostFocus
ButtonCancel_Click
ButtonOK_Click
Make the customer rec is there
But do not update it yet
rc = GetCustomerRec(DBKEYED)E
Get each tape and update
Tape "
deleted!
Tape is already out, number: "
Already out"
Get the customer again and update as quickly
as possible. Should lock it, but requires more code
Clear the screen for the next checkout
*** tapetitle(i%).caption = " "
ButtonExit_Click
Form_Load
?? whats wrong with this - custnumber.SetFocusF